Böyle bir varyant kaydı yapabilirsiniz
muint64 = kayıt yazın
durum boole değeri
doğru: (i64: int64);
yanlış: (lo32, hi32: kardinal);
son;
Artık uint64'ünüzü imzasız verilerle doldurmak için sadece kardinalleri kullanabilirsiniz.
Diğer seçenek ise şu şekilde kod kullanmak olacaktır:
const neredeysemaxint64 = 800000045000000 ABD doları;
var muint64: int64;
başla
muint64: = neredeyse maxint64;
muint64: = muint64 shl 1;
son
|
Derleyicinin desteği olmadan pek çok seçeneğiniz olmaz.
Bazı harici DLL'deki bir işleve bir değer iletmek istediğinizi varsayıyorum. Parametreyi imzalı 64 bitlik tamsayı Int64 olarak bildirmeniz gerekir. Daha sonra tek yapabileceğiniz, istenen işaretsiz değerle aynı bit modeline sahip işaretli değeri iletmektir. İmzasız 64 bit tamsayıları destekleyen bir derleyiciyle kendinize küçük bir dönüştürücü aracı oluşturun.
|
Geleneksel olarak, Broland uygulamaları, hedef platform tarafından desteklenen en büyük imzasızların olmaması nedeniyle birlikte çalışabilirlik sorunları yaşıyordu. DWORD yerine LongInt değerlerini kullandığımı ve Windows için Turbo Pascal'ın ilk günlerinden beri sorun beklediğimi hatırlıyorum. Sonra Kardinal mutluluk vardı, ancak hayır, D4 yalnızca imzalı formunda en büyük tam sayı Int64'ü sundu. Tekrar.
Yani tek seçeneğiniz, imzalı temel tip Int64'e güvenmek ve dua etmek ... bekleyin, hayır, aritmetiği en az ve en önemli kısmı ayrı ayrı gerçekleştirmek için Int64Rec typecast'i kullanın.
Sürekli bildirime geri dönelim:
sabit
foo = 8000004200000001 ABD doları; // bu işe yarar çünkü onaltılık gösterim doğası gereği işaretsizdir
// ancak, belirtilen sembol foo imzalı Int64 değeri olur
// ondalık sayı kullanmaya çalışmak "Tamsayı sabiti çok büyük" hatasına neden olur
// Daha fazla ayrıntı için D7 Yardım'da "Gerçek sabitler" konusuna bakın
prosedür TForm1.FormCreate (Gönderen: TObject);
başla
// sadece doğrulamak için
Başlık: = IntToHex (foo, SizeOf (Int64) * 2);
son;
Ne yazık ki, diğer geçici çözüm derleyicinizi değiştirmektir. Free Pascal her zaman imzalı ve işaretsiz türleri senkronize tutar.
Bu pasaj, Borland Delphi Sürüm 15.0'da (a.k.a Delphi 7) doğru sonucu derler ve verir.
|
senin cevabın
StackExchange.ifUsing ("editor", function () {
StackExchange.using ("externalEditor", function () {
StackExchange.using ("parçacıklar", işlev () {
StackExchange.snippets.init ();
});
});
}, "kod parçacıkları");
StackExchange.ready (function () {
var channelOptions = {
etiketler: "" .split (""),
id: "1"
};
initTagRenderer ("". split (""), "" .split (""), channelOptions);
StackExchange.using ("externalEditor", function () {
// Snippet'ler etkinse, snippet'lerden sonra editörü çalıştırmanız gerekir
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using ("parçacıklar", işlev () {
createEditor ();
});
}
Başka {
createEditor ();
}
});
function createEditor () {
StackExchange.prepareEditor ({
useStacksEditor: false,
heartbeatType: 'answer',
autoActivateHeartbeat: yanlış,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Destekleyen \ u003ca href = \" https: //imgur.com/ \ "\ u003e \ u003csvg class = \" svg-icon \ "width = \" 50 \ "height = \" 18 \ "viewBox = \ "0 0 50 18 \" fill = \ "yok \" xmlns = \ "http: //www.w3.org/2000/svg \" \ u003e \ u003cpath d = \ "M46.1709 9.17788C46.1709 8.26454 46.2665 7.94324 47.1084 7.58816C47.4091 7.46349 47.7169 7.36433 48.0099 7.26993C48.9099 6.97997 49.672 6.73443 49.672 5.93063C49.672 5.22043 48.9832 4.61182 48.1414C.61182C47.4335 4.61182 4.67324 4.91628 46.7669 7.36433 48.0099 7.26993C48.9099 43.1481 6.59048V11.9512C43.1481 13.2535 43.6264 13.8962 44.6595 13.8962C45.6924 13.8962 46.1709 13.2535 46.1709 11.9512V9.17788Z \ "/ \ u003e \ u003cyol d = \" M32.492 10.14.94723.048 12.6954.0723.048 41.5985 12.6954 41.5985 10.1419V6.59049C41.5985 5.28821 41.1394 4.66232 40.1061 4.66232C39.0732 4.66232 38.5948 5.28821 38.5948 6.59049V9.60062C38.5948 10.8521 38.2696 11.5455 37.0451 11.5455 521 35.4954 9.60062V6.59049C35.4954 5.28821 35.0173 4.66232 34.0034 4.66232C32.9703 4.66232 32.492 5.28821 32.492 6.59049V10.1419Z \ "/ \ u003e \ u003cpath fill-rule = \" evenodd \ "klip-kuralı =" çift = \ "M25.6622 17.6335C27.8049 17.6335 29.3739 16.9402 30.2537 15.6379C30.8468 14.7755 30.9615 13.5579 30.9615 11.9512V6.59049C30.9615 5.28821 30.4833 4.66231 29.4502 4.66231C28.99 4.66234 .1369 4.56087 21.0134 6.57349 21.0134 9.27932C21.0134 11.9852 23.003 13.913 25.3754 13.913C26.5612 13.913 27.4607 13.4902 28.1109 12.6616C28.1109 12.7229 28.1161 12.7799 28.121 12.985.1321 15.2321 24.1352 14.9821 23.5661 14.7787C23.176 14.6393 22.8472 14.5218 22.5437 14.5218C21.7977 14.5218 21.2429 15.0123 21.2429 15.6887C21.2429 16.7375 22.9072 17.633525.6622 17.6335ZM24.1317 9.27932C24.1317 7.94324 24.9928 7.09766 26.1024 7.09766C27.2119 7.09766 28.0918 7.94324 28.0918 9.27932C28.0918 10.6321 27.2311 \.5116 26.1079 11.5116C24.9737 \.5116 M16.8045 11.9512C16.8045 13.2535 17.2637 13.8962 18.2965 13.8962C19.3298 13.8962 19.8079 13.2535 19.8079 11.9512V8.12928C19.8079 5.82936 18.4879 4.62866 16.4027 4.62866C15.1594 4.62866 14.279 4.981375 8.57809 4.89931 7.9466 5.5079C7.58314 4.9328 7.10506 4.66232 6.51203 4.66232C5.47873 4.66232 5.00066 5.28821 5.00066 6.59049V11.9512C5.00066 13.2535 5.47873 13.8962 8.02.9532 13.8962C7.54479 13.8962 8.02.9532 5104 6.91179 10.893 7.58817 10.893 8.94108V11.9512C10.893 13.2535 11.3711 13.8962 12.4044 13.8962C13.4375 13.8962 13.9157 13.2535 13.9157 11.9512V8.90741C13.9157 7.58817 14.3365 6.91179 1 5.4269 6.91179C16.4027 6.91179 16.8045 7.58817 16.8045 8.94108V11.9512Z \ "/ \ u003e \ u003cpath d = \" M3.31675 6.59049C3.31675 5.28821 2.83866.95 4.6623235 1.82471 4.66232.250.791758 4.662324 0.31371 0.791758 13.8962 1.82471 13.8962C2.85798 13.8962 3.31675 13.2535 3.31675 11.9512V6.59049Z \ "/ \ u003e \ u003cpath d = \" M1.87209 0.400291C0.843612 0.400291 0 1.1156 0 1.98861C7 3.87869 2.87869 3.7234 1.98861C3.7234 1.1159 2.90056 0.400291 1.87209 0.400291Z \ "fill = \" # 1BB76E \ "/ \ u003e \ u003c / svg \ u003e \ u003c / a \ u003e",
contentPolicyHtml: "\ u003ca href = \" https: //stackoverflow.com/help/licensing \ "\ u003ecc by-sa \ u003c / a \ u003e \ u003ca href = \" https://stackoverflow.com altında lisanslanan kullanıcı katkıları / legal / content-policy \ "\ u003e (içerik politikası) \ u003c / a \ u003e",
allowUrls: true
},
onDemand: doğru,
discardSelector: ".discard-answer"
, hemenShowMarkdownHelp: true, enableTables: true, enableSnippets: true
});
}
});
Stack Overflow'a yanıt verdiğiniz için teşekkür ederiz!
Lütfen soruyu yanıtladığınızdan emin olun. Ayrıntıları sağlayın ve araştırmanızı paylaşın!
Ama kaçının ...
Yardım istemek, açıklama yapmak veya diğer cevaplara cevap vermek.
Görüşe dayalı açıklamalarda bulunmak; bunları referanslarla veya kişisel deneyimlerle destekleyin.
Daha fazla bilgi edinmek için harika yanıtlar yazmaya ilişkin ipuçlarımıza bakın.
Taslak kaydedildi
Taslak silindi
Kaydolun veya oturum açın
StackExchange.ready (function () {
StackExchange.helpers.onClickDraftSave ('# login-link');
});
Google'ı kullanarak kaydolun
Facebook kullanarak kayıt olun
E-posta ve Şifre kullanarak kayıt olun
Sunmak
Misafir olarak yayınlayın
İsim
E-posta adresi
Gerekli ama asla gösterilmez
StackExchange.ready (
function () {
StackExchange.openid.initPostLogin ('. Yeni-giriş-sonrası', 'https% 3a% 2f% 2fstackoverflow.com% 2fquestions% 2f6378107% 2fhow-to-define-an-unsigned-64-bit-integer-in-delphi7% 23yeni cevap ',' soru_sayfa ');
}
);
Misafir olarak yayınlayın
İsim
E-posta adresi
Gerekli ama asla gösterilmez
Cevabınızı Gönderin
At
"Cevabınızı Gönderin" seçeneğine tıklayarak hizmet şartlarımızı, gizlilik politikamızı ve çerez politikamızı kabul etmiş olursunuz.
Aradığın cevap değil mi? Delphi uint64 etiketli diğer sorulara göz atın veya kendi sorunuzu sorun.